#!/usr/bin/guile \
-e main -s
!#
(
define (fact n)
  (if (zero? n) 1
    (* n (fact (- n 1))))
)

(
define (main args)
  (sayhello "xing wenju!")
  (newline)
  (display "Ding fact for you!")
  (newline)
  (display (fact (string->number (cadr args))))
)

(
define (sayhello args)
  (display "say it ")
  (display args)
)
